home *** CD-ROM | disk | FTP | other *** search
/ True Legends Of Adult Cinema: The Modern Era / True Legends of Adult Cinema - The Modern Era.iso / pc / era / modera.inf < prev    next >
Text File  |  1994-06-23  |  3KB  |  93 lines
  1. ;;**************************************************
  2. ;; Install of the Modern Era software for windows
  3. ;;**************************************************
  4.  
  5. DefineVariables
  6.   
  7.   Text    [CompanyName] := VCA Interactive
  8.   Text    [ProductName] := Modern Era
  9.   Text      [TopLine]    := " INSTALLING [ProductName]  "
  10.  
  11.   Text      [ExpressSetupDescription]    := Install Modern Era
  12.  
  13.   
  14.   Text    [LogoBitMap]  := VCA.BMP    
  15.   Text    [ReadFile]    := README.DOC             
  16.   Text    [ReadCmdLine] := write.exe
  17.   Text    [IconFile]    := VCA.ICO
  18.   Text    [IconPath1]    
  19.   Text    [IconPath2]    
  20.   Text    [ProgFile]    := Modera.EXE
  21.   Text    [ProgPath]
  22.  
  23. EndDefineVariables
  24.   
  25.  
  26.  
  27. ;; Setup logo and screen
  28. SetDefaultBitmap off
  29. LoadBitMap 1 [LogoBitMap]
  30. ShowBitMap 1 @xy(1,1)
  31. SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  32. ShowWindow Maximized
  33.  
  34. Dialog
  35.   
  36. Installation of [ProductName] is completely noninvasive. 
  37. It will consist only of creating new icon and a
  38. program group in you program manager.
  39.     
  40. Please press OK to procede with [ProductName] installation.
  41.  
  42. EndDialog
  43.  
  44.  
  45. ;;**************************************************
  46. ;;Find the files for the program and icons
  47. ;;**************************************************
  48. [IconPath1] := FullPathTo [IconFile] Search AllFixed
  49. [ProgPath]  := FullPathTo [ProgFile] Search AllFixed
  50.  
  51.  
  52.  
  53. ;;**************************************************
  54. ;; Create the windows program group.
  55. ;;**************************************************
  56. ProgramManagerDDe
  57.   CreateGroup([CompanyName])
  58.   ReplaceItem([CompanyName])
  59.   AddItem([ProgPath],[ProductName],[IconPath1])
  60. ;;  AddItem([ReadCmdLine],[ReadFile],[IconPath2])
  61. EndProgramManagerDDE
  62.  
  63.  
  64.  
  65. ;; Exit dialog box and messages
  66. Dialog
  67.   [ProductName] installation is complete.
  68.   Enjoy!
  69. EndDialog
  70.  
  71. Procedure DDENonFatalErrorTrap
  72. ;; Purpose of DDENonFatalErrorTrap:
  73. ;; If a procedure with this name is present in the script and a non-fatal
  74. ;; Program Manager DDE error occurs, then this procedure will be executed.
  75. ;; 
  76. ;; Possible Text Error Codes Are:
  77. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  78. ;;      ddeInitiate failed
  79. ;;      pmAddItem failed
  80. ;;      pmClose failed
  81. ;;      pmCreateGroup failed
  82. ;;
  83. ;; To trap a DDENonFatalError and respond to it, use the following code
  84. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  85. ;; If [Number1] > 0 
  86. ;;    Dialog
  87. ;;      NonFatal error in AddItem occurred
  88. ;;      Error Text : DDENonFatalError
  89. ;;    EndDialog
  90. EndProcedure
  91.  
  92. EndScript
  93.